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- add by reference entries, rename by donee tater entries 15-Mar-79 RW 

C . /BS -APR-197 
- Make CALL entry points accept scalars by ref. Rw fail ty 
- nstead of ong RW 2 
= Change Linkage names to start with STR$. JBS 04-JUN-1 
= Change order of src and dest parameters. RW 16-Jul-7 


PUSAN ES 
MEWN OOO 


Correct ? typo in ed 285 1 out 1979 
Use new interlock macros. JBS 06-NOV-197 
The interlock macros cannot be used from a routine called 


: 1 60) MODULE STRSCOPY ( ! Copy one string to another 

; § 008 IDENT = '1-015" ! File: STRCOPY.B32 Edit: 0G1015 

: 5 5 )=z 

; § $ : BEGIN 

: 4 43 : leueenneneeneeereenennennennenterterteerereetententnntnnenntnntnntantnetentes 
: 'e e 
; 10 010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; 011 1 i® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
: 1 0018 ! ” ALL RIGHTS RESERVED. . 
ee 014 1 '* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
s 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
H 16 Bots 1 !'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
. . i O17 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 1 sd : i. TRANSFERRED. * 
Py } y 
3 1 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; ¢ 00 § 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: Z 4 Z : os CORPORATION. * 
Py : % 
3 5 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 $ 4 § : - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; . a 
e 8 0028 1 !«* w 
3 2 it 34 } | CERRSSESSONRRNSR RES SEASRSRNRAE OCHRE RS HONN Te RORER ATOR SERebeRNNESeTeSNOR Inte 
; 31 0031 1— 

; ¢ 00 ¢ 1 !e¢ 

; 4 Z : } FACILITY: String support Library 

ts 0035 1 | ABSTRACT: 

3 6 0036 1! 

; 7 0037 1! This module copies one string of any supported class and any 

; BR aie 1 ! supported dtype to a second string of any supported class and any 

: 4 4 ' supported dtype. 

3 $ sod ! ; ENVIRONMENT: User mode, AST level or not or mixed 

; és o48 : AUTHOR: R. Will, CREATION DATE: 20-Jan-79 

> 45 5 1 | MODIFIED BY: 

; 4 ik 1! 

; 6 1! R. Will, pendener es VERSION 01 

3 8 zz 6 - origina 

3 1! 

: 01! 

3 1 37 

3 3 

gi 

3 & 1! 

3 pe 

3 1! 

: $ 1! 


MAUI 


ww 
So 


STRSCOPY 
015 


oo 


SSSR ee 
SN NN NOOAO PAC UMN 


FW CQODNOUE WOO 


ta 2 tL 


18-50 sen- 138% 9}: 23: 32 AX-11 Bliss-32 V4.0-742 Page 2 


-Sep- LIBRTL.SRCJSTRCOPY.832;1 (1) 
with a JBS because of th CHABLE J s Pt) bs -1979 
1-81) - String Re eae edit 10 
1-012 - Reoree nize stri copyin feutions, to use the nae 
secopy. XXX en ry points to do the real work. 
7 s makes them sens tive to the theklnn ont Cleese $,°% 
descri “gts Remove string interlock B coge. RK py otk 
1-013 - ppeed 7 epec tel ncesin classes of descriptors that ' 
fi a ng descriptors. 
Ay or ng performance back to Version 2 levels, it became 
necessery ot to ar ep. rcate the logic found in LIBSSCOPY R_DX6 
in STR 
RKR 18-NOV_TS 81 
.* Add support for class SO Tt Severin 
$ ) 


3-0CT-1983. 
Change class SO string descriptor to S$ 


DG 39 -F eb< 1986. 


! <BLF /PAGE> 


SS 109 09 C9 C9 CD 09 C9 09 09 C8 SI NI NI SIN I I “ICD CD CD OD OD 00 0D 
~ 


Coooooem 


Se 


cc em mm ce ee a me em ee em ee me a ee ee ee ee ee ce ee a ed ed ed ed od od od 


S555 


ed ed et td ad od = BB OOOO OOOOCO 
SASSRVENRAN LS SHVS ARUN [SSHVE APA Oe IRAE Ooo ION 


kk kt tt at at a tt ot es 
a a ak kk ad td td et td I I IQ OOOO OOOOCOOCOCOOO 


FU“ OOBNOUS WO 0 
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SWITCHES: 


a Moos SOOT ERNAL GENERAL, NONEXTERNAL = WORD_RELATIVE) 
= » = ’ 
'SWITCHES LIST (EXPAND); 


LINKAGES: 
REQUIRE 'RTLIN:STRLNK'; ! Use require file with string Linkage 


TABLE OF CONTENTS: 
FORWARD ROUTINE 
STRSCOPY_DX, 


STRSCOPY_R, 
STRSCOPY-DX_R8 : STRSJSB_COPY_DX, 


STRSCOPY_R_R8 : STRSJSB_COPY_R; 


copy string to another, 
CALL entry 

Copy string by ref, CALL entry 
Copy string to another, 

JS ore 

Copy string by ref, JSB entry 


INCLUDE FILES: 


REQUIRE ‘*RTLIN:RTLPSECT'; ! Use to declare PSECTs 
REQUIRE ‘RTLIN:STRMACROS'; ! Use string macros to code 
LIBRARY ‘RTLSTARLE'; ! STARLET Library for macros and symbol 
MACROS: 
: NONE 
: EQUATED SYMBOLS: 
LITERAL 
MAX_SIZE = 65535 ; ! Maximum string size 


PSECT DECLARATIONS 


DECLARE _PSECTS (STR); 


OWN STORAGE: 
i NONE 
EXTERNAL REFERENCES: 
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TRSCOPY 16-Sep-1984 01:35:39 AX-11 Bliss-32 V4.0-742 
ar5H8 19-808= 1382 94:33:32 LIBRTL. SRC ISTRCOPY .B3251 
; 100 } é } GLOBAL ROUTINE STRSCOPY_DX ( ! Copy string 
: 16 1 1 DEST_DESC, ' Pointer to dest str desc 
; 147 ! ! SRC_BESC ie ! Pointer to input str desc 
2) en ee 
: 151 1 1 | FUNCTIONAL DESCRIPTION: 
3; 1 § 1345 1! This routine copies a source string to a destination string 
Th 1344 1 ! where both the source and destination may be of any class or any 
3; 61546 1345 1! dtype. This is the CALL entry ge nt, it puts the parameters in the 
; : 5 ! ré ; correct place and JSBs to the JSB entry point. 
: ? 48 FORMAL PARAMETERS: 
: 159 1350 1 DEST_DESC.wt.dx ointer to destination string descriptor 
: 19) : 2) : SRC_BESC.rt.dx pointer to source string dostripter , 
: 168 1 38 1 | IMPLICIT INPUTS: 
‘ 1354 1! 
; 168 1 a? ! NONE 
> 166 1389 4 i IMPLICIT OUTPUTS: 
: 167 1358 1! 
: 48 13801 | “mes 
: 170 1381 COMPLETION CODES: 
: 172 1 re 1 SS$_NORMAL Success 
; 6 ; rt : STRS_TRU Truncation occured. Warning. 
: 125 66 ' SIDE EFFECTS: 
: 177 1368 1 | Will signal STRS$_INSVIRMEM if no heap memory to allocate strings or 
; im 1369 1! STRS_ILESTRCLA if class in descriptor is not supported. . 
3 178 1370 1! 
Bes kee 
; 18 1 ig 3 BEGIN 
; 18 1374 RETURN (STRSCOPY_DX_R8 ( .DEST_DESC, .SRC_DESC) ); 
> 184 1375 1 ND; 'End of STRSCOPY_DX 
-TITLE STRSCOPY 
IDENT Syeois 
-EXTRN STRS_FATINTERR, STRS_INSVIRMEM 
-EXTRN STRSTILLSTRCLA 
-EXTRN STRS-NORMAL, LIBSSTOP 


-PSECT _STRSCODE,NOWRT, SHR, PIC.2 
FC 00000 .ENTRY STRSCOPY_DX, Save R2,R3,R4,R5,R6,R7,RB 
50 04 Ac {0 0 2 MOVa DEST DEST, RO 
0000v 30 6 BSB STRSTOPY_OX_R8 
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; Routine Size: 10 bytes, Routine Base: _STRSCODE + 0000 
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18- ep~1984 01:35:39 AX-11 Bliss-32 V4.0-742 Page 7 
1 = 300-1382 04788 LIBRTL. SRCISTRCOPY.B32s1 ° (4) 
GLOBAL ROUTINE STRSCOPY_R ( ! Copy a string 
DEST DESC, ! Pointer to dest gtr desc 
SRC_CEN ! Value of src string length 
SRC-ADDR i Pointer to source string 
14 
FUNCTIONAL DESCRIPTION: 
i This routine copies a source string to a destination string 
! where both the source and destination oe be of any class or any 
! dtype. This is the CALL with source string by reference 
! entry point, it puts the parameters in the correct 
i place and J§Bs to the JSB entry point. 
| FORMAL PARAMETERS: 
i DEST_DESC.wt.dx pointer to destination string descriptor 
! C_CEN.rwu.r addr of value of Length of source string 
: SRC_ADDR.rt.r pointer to source string 
IMPLICIT INPUTS: 
| NONE 
IMPLICIT OUTPUTS: 
! NONE 
| COMPLETION CODES: 
i S$S$_NORMAL Success 
STRS_TRU Truncation occured. Warning. 
SIDE EFFECTS: 
i will shenel STRS_INSVIRMEM if no heap memory to allocate strings or 
} STRS_ILLSTRCLA if class in descriptor is not supported. 
oo 
BEGIN 
RETURN (STRSCOPY_R_R8& (.DEST_DESC, + SRC_LEN, »SRC_ADDR) ) ; 
END; 'End of STRSCOPY_R 
-ENTRY STRSCOPY_R, Save R2,R3,R4,R5,R6,R7,R8 : 1376 
OVL  SRC_ADDR> R : 1420 
MOVL @SRC_LEN, R 3 
VL —sdDEST~pESE RO ; 
BSBW 8=s STRSTOPY_A_R : 
ET : 1421 
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; Routine Size: 18 bytes, Routine Base: _STRSCODE + OOOA 
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Ve=8eb-1884 $oiz0:06 — EeTarte® 
! Copy string 


DEST_DESC, ! Pointer to dest str desc 
SRC_BESC ! Pointer to input str desc 


) : STRSJSB_COPY_DxX = 


sReis 


GLOBAL ROUTINE STRSCOPY_DX_RB ( 


+ 


+ 
FUNCTIONAL DESCRIPTION: 

This routine copies a source string to a destination string 
where both the course and destination = be of “~ supported class. 
It JSBs to the routine which does the actual copy by reference on 
the source. 

FORMAL PARAMETERS: 


DEST_DESC.wt.dx pointer to destination string descriptor 
SRC_BESC.rt.dx pointer to source string descriptor 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 


SS$_NORMAL Success. 
STRS_TRU Truncation occurred. Warning. 


SIDE EFFECTS: 


Will o\poet STRS_INSVIRMEM if no heap peaget to allocate strings or 
STRS_ILLSTRCLA if class in descriptor is not supported. 


BEGIN 


Pp 
SRC_DESC : REF BLOCK C,BYTE); 
a aan CDSCSB_CLASS] LEQU DSC$K_CLASS_D 


BEGIN 
RETURN (STRSCOPY_R_RB ( .D 


IN_LEN 
INZADDR ; 


“ 


TRSCOPY 
atts 

; 290 

; ey 

; 

; @ 

> 294 


; Routine Size: 


51 


7E 


50 


76 bytes, 
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SSTRSGET_LEN_ADDR ( SRC_DESC, IN_LEN, IN_ADDR ) ; 
RETURN (STRSCOPY_R_RB (TDEST_DESC, .{N_LEN, .IN_ADDR ) ) ; 
END; 'End of STRSCOPY_DX_R8 
.EXTRN STRSANALYZE_SDESC_R1 
03 BB 00000 STRSCOPY_DX_R8:: 
PUSAR #*M<RO,R1> 
50 D4 00002 CLRL 
04 AE 0 ct 0 ADDL3 #3, SRC_DESC, R1 
0 61 91 CMPB. «(RAD #2 
10 1A OC BGTRU 1$ 
50 06 0 INCL RO 
04 AE 04 C1 0001 ADDL3 #4 SRC_DESC, -(SP) 
5 9E bo 991 MOVL a(§P)+,"R 
51 04 BE 3C 0001 MOVZWL @SRC_DESC, R1 
. 1 ooic BRB 4$ 
OF 0 5 OO1E 1$: BLBC —_ RO, 28 
5 04 BE C 90 1 MOVZWL a@SRC_DESC IN_LEN 
04 AE 4 C1 00025 ADDL3 #4, SRC_DESC,R 
5 60 DO 000A MOVL (RO), IR_ADDR 
10 11 0 D BRB 
50 04 AE 00 F 2$ MOVL §SRC_DESC, RO 
000000006 1 3 JSB STRSANALYZE_SDESC_R1 
53 D 9 MOVL RO, RS 
2 } D C MOVL R11. R 
51 D F 3$: MOVL __IN-LEN, R1 
50 6 p 42 4$: MOVL DEST_DESC, RO 
009 v 4 BSBW STRSCOPY_R_RB 
SE ¢ 00 48 ADDL2 #8, SP 
0048 SB 


Routine Base: _STRSCODE + OOIC 


6 
i 


i SIDE EFFECTS: 

: Will signal STRS_INSVIRMEM if no heap memory to allocate to 
! strings, and STRS_ILLSTRCLA if class in descriptor is not one 

! supported by SRM 
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TRSCOPY 16-Sep-1984 01:35:39 AX-11 Bliss-32 V4.0-742 Page 11 

tty 13-808- 1382 93:33:32 LIBRTL. SRCISTRCOPY.B3251 ° (6) 

: 38 1° ¢ } GLOBAL ROUTINE STRSCOPY_R_RB ( ! Copy a string : 
; 38 14 6 1 DEST_DESC, ! Pointer to dest str des : 
F 1487 1 SRC_CEN ! Value of len of src string : 
; 90 14 § SRC-ADDR i Pointer to source string ; 
; 0¢ 1490 1 ) : STRSJSB_COPY_R = 3 
; 1491 1 ; 
; 304 1 3 1 t+ : 
3 5 : 37 ! FUNCTIONAL DESCRIPTION: : 
: 89 1495 1! This routine copies a source string specified by a length and a ; 
; 308 1 38 1 ! pointer, to a destination string specified by a descriptor, ; 
; 309 1497 % ! where both the source and destination may be of any class or any : 
; 310 1498 1! dtype. This routine uses the macros to prevent ASTs on the source and : 
3 3 1499 1! destination strings, and then JSBs to the routine which does ‘ 
3 \¢ : 89 : } the actual copy by reference on the source ; 
i 34 130¢ 1 | FORMAL PARAMETERS: 3 
: 316 1506 1! DEST_DESC.wt.dx pointer to destination ptring descriptor : 
; 317 1505 1! SRC_CEN. rwu.v value of source string lengt ; 
3 18 : Be ’ SRC_ADDR.rt.r pointer to the source string : 
: 320 1508 1 | IMPLICIT INPUTS: ; 
3 1 1509 1! 3 
; ¢ 151 1! NONE : 
; 1511 1°! F 
3 & 151 1 ! IMPLICIT OUTPUTS: 3 
3 5 1515 1! : 
oe contig 7 
: 23 1316 i COMPLETION CODES: : 
: 330 1518 1: SS$_NORMAL Sucess. ; 
: 1 ! 1 : STRS_TRU Truncation occurred. Warning. : 
: : 1 1} ; 
; 1 1! : 
; 5 1 1! 3 
3 1 1! 3 
; : 1 1! 3 
; 1 Z $ 
3 1 1! 3 
3 0 1 1 3 
3 1 ! BEGIN : 
; : 1 LOCAL ; 
; ee RETURN_ STATUS; : 
i 346 1 DEST DESC : REF BLOCK [,BYTE), : 
; | SRC_CEN : WORD UNSIGNED ; : 
: § 1 i Select the class of descriptor. 3 
; 39 ! 3 : Return the status resulting from the copy operation. : 
: 352 1540 2° ; 


gigscor i$oseoctge 0:35:59 yaredt OL inne sz ve.0-742_ 


; 154 RETURN_STATUS = SSS_NORMAL ; ! Assume success 

s 154 RETURN_STATUS = ( CASE DEST ig’ ett CLASS 

; : : SET FROM DSCSK_CLASS_Z TO DSCSR_CLASS_SB OF 

: gf 

: 1 23 i fixed string descriptor (CLASS .Z, _S, _SD, _SB) 

: : re } PITTI LITT ILI LALIT TILIT LETTE ELL titiiiity 

: 1550 i Use fixed Length semantics. Copy to destination with fill or 
3 } 1 } truncation. 

; 1 § COSCS$K_CLASS_7, 

3 1554 DSCSK_CLASS_S 

3 1 2? DSCSK_CLASS_S 

; 1 5 DSC$K~CLASS_SB) 

; 1557 4 BEGIN 

3 1328 ? BUILTIN RO; ! Length of uncopied srz from MOVCS 

; 1560 4 CHSCOPY (.SRC_LEN, .SRC_ADDR, STRSK_FILL_CHAR, 

; 1561 4 .DEST_DESC Fosesu.téngtia 

; 136¢ 4 .DESTIDESC EDSCSATPOINTERS); ! do copy 

: 1288 ? IF .RO EQLU O =! if no uncopied src 

: 1206 ? a og. ! then success 
: 1568 4 STRS_TRU ! else truncation 
8 1569 ; END; 

3 1570 
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i dynamic destination string 
' PAARAARAAALALALLALLELA LSS SC 


COSCSK GLASS_DJ : 
IF SSTRSNEED_ALLOC (.SRC 


LEN. 
(SSTRSDYN_AL_LEN (DEST_DESC)) ) 


aif ZBLISS (BLISS16) OR XBLISS (BLISS36) ! if not VAX must not 


OR SSTRSOVERLAP (.SRC_ADDR, ,SRC_LEN 
-DEST_DESE COSCSA_POINTER], .SRC_LEN) 


! CHSMOVE with overlap 


HEN 
BEGIN ! cannot directly fill dest 


L 

LOC_RET_STAT, ! status of calls to Allocate 
! and Deallocate 

TEMP_DESC : SSTRSDESCRIPTOR; ! create temp 


LOC_RET_STAT = SSTRSALLOCATE (.SRC_LEN, TEMP_DESC); 
' alloc temp 


' Allocate will only return STRS$_NORMAL or 
' STRS_INSVIRMEM, therefore if if wasn't success, 
! don't continue copying 


IF (.LOC_RET_STAT) 
THEN 


BEGIN ' successful allocate 
CHSMOVE (.SRC_LEN, .SRC_ADDR, ! copy to temp 
-TEMP_DESC CDSCSA_POINTERJ); 
SSTRSEXCH_DESCS (TEMP_DESC, DEST DESC); 
suttch temp 


! and dest 
LOC_RET_STAT = SSTRSDEALLOCATE (TEMP_DESC); 

' return former 
i. ! string 


i $STRSDEALLOCATE returns either STR$_NORMAL 
i or STRS_FATINTERR. 


iF NOT .LOC_RET_STAT 


RETURN_STATUS = STRS_FATINTERR ; 
! successful allocate 


LSE 
RETURN_STATUS = STRS_INSVIRMEM ; 
' cannot directly fill dest 


GIN ' directly fill dest 
SMOVE (.SRC_LEN + pre ADDR : yr ite dest 
$c COSCSA_POINTER 


-DEST_DE ); 


1EoS¢0-1984 QU:EREP —YARGIY OLsenc hz We. 03742, 


1 5 DEST_DESC CDSCSW_LENGTH] = .SRC FEN; 

16 4 END; ' directly fill dest 

444 1631 4 .RETURN_STATUS ! return the status 
445 16 § ; END; 

446 16 


SE — -+ 
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; 44 1634 3 14 

: 4s 1635 ' Class A and NCA array descriptor 

3 : : ! $ eeeeeeeeereeeeeeeerekeertreneere 

3; 6 1 CDSCSK_CLASS_A ' Class A Array descriptor 

; : § 1835 ? DSCSK-CLASS-NCA): ! Class NCA array descriptor 

: 2 é 189 ? BUILTIN RO; ! Len of uncopied src from MOVCS 

: 45 1643 4 

: t38 1e0e ; THEN STRS_ILLSTRCLA ; ! then quit 
; 460 19%8 & CHSCOPY (.SRC_LEN, .SRC_ADDR, STRSK_FILL_CHAR, 

; 1647 4 DEST_DESC COSCSL_ARSIZE) 

:; 46 Mb oy Q -DEST_DESC DSCSA-POINTERS); ! do copy 

; 1650 4 IF .RO EQLUO ! if no uncopied src 

; 1651 4 THEN 

; 1926 ? RETURN_STATUS = SS$_NORMAL ! then success 

; 1654 4 RETURN_STATUS = STR$_TRU telse truncation 

: 1656 3 END ; ! of Class A and NCA Array Descriptor 


IF_.DEST DESC COSCSL_ARSIZE] GTR MAX_SIZE ! sin og! ye 


STRSEOPY 


5E 


56 


00st 002k 


1SoSeoct9Re 01:55:59 yatad1 oLieg32 y 


! Varying string descriptor 


EG 
ten srcoten LEU eo fe DESC COSCSW_MAXSTRLEN] ) 


thin MAXLEN, copy and update CURLEN 


cRDSCSACE POINTER + 2); 
> = .SRC_LEN 
! return success status 


fit within MAXLEN. Only copy MAXLEN's 
i ek of data and update CURLEN to MAXLEN 


T ~pest DSC$W att oy : ADDR, 
E bsheap EDStSA, Woh ies 


baat  bESC Peres -MAXSTRLEN) ; 
! return gs status 


! of Varying string descriptor 


! Unsupported class of descriptor 
end of set on class code 


s 6 1 

. 

: ug ee bo 

; 475 1 

3 ry 1 

; 47 1 COSCSK_CLASS_VS): 

3 $38 1 4 N 

3; 47 1664 5 

s 6 1665 4 

; 481 1998 N 

3 2 ¢ 196 CHSMOVE (. SR tine 
3; 4 1885 (DEST DESC ee EDSeaK POINTER) 
; 485 16 SS$_ NORMA 

; 4 1671 

3; 4 1006 

3; 4 16735 4 ELSE ! Won't 
: 489 1674 4 

; 490 1675 4 

; 491 1976 BEGIN 

; 49 167 CHSMGVE (.DES 
; 49 1978 -D 

3 494 167 (.DEST_DESC 

; 495 e's} 

; 496 1681 STRS$_TRU 

; 497 16 ¢ END 

; 498 16 

3; 4699 1684 END ; 

3 300 1685 

3 301 1686 

3 206 168 

s 30 1688 "Geunserted class descriptor 
3 504 1689 ; RERRAAAERAEAARERAERKEREARERE 
3 202 1690 

; 506 1691 

s 507 1006 CINRANGE, OUTRANGE): 

3 308 169 ST TRS. ILLSTRCLA ; 

; 509 1694 ES 

; 510 1695 SETRESIGNAL oy (RETURN_ STATES) : 
3 313 1628 ¢ BEIURN -RETORN_STATUS; 


'End of STRSCOPY_R_R8 


-EXTRN STRSSINIT, STRSSV_INIT 
~EXTRN STRS$SALOC_SHORT 
-EXTRN STR$$Q_SHORT_Q, LIBSGET VM 
SEXTRN STRS$MOVQ_R1> LIBSFREE_OM 
C2 00000 STRSCOPY_R Rg: 
SuBL #20, SP 
DD 000 PUSHL R 
D MOVL Ri, R8 
D MOVL RO, R6 
bo PUSHL # 
£ CASEB S{DEST.DESC), #0, #15 
O12 1$: - WORD $-1$,= 
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a 
TRSCOPY 16-Sep-1984 01:35:39 YAX-11 Bliss-32 V4.0-742 Page 18 
tts 12-80-1382 94:33:39 LC TARTL SREISTACOPY BS201 9 19) 

51 p0 BO 14$: ov. R1, STRING BLOCK ; : 

FE AO 3¢ 0008 MOVZWL =2(STRING BLOCK), RO : ; 

50 5B D 00087 15$: CMPZ2V #0, #16, SRC_LEN, R : ; 

A 0008C BGTRU } 4 : ; 

0114 31 0008 168: BRW 1$ : : 

7 000000006 0 E8 000C1 17$:  BLBS  STRSS$V INIT 18$ : 1592 : 

000000006 0 F ¢ CALLS #0 ste SIN : : 

000000006 8F D CF 18$: OVL  #STRS_NORMAL, RETURN_STATUS : ; 

OOFO BF Q D6 CMPW SRC _LEN, #246 : ; 

40 1A 00008 BGTRU 24 : ; 

7 DD TSTW  SRC_LEN : ; 

4 0 OF BNEQ 19$ : ; 

D £1 CLAL guP : : 

ef if 0 E BRB $ : ; 

51 a ¢ £5 .19$:  MOVZWL SRC_LEN, R1 : ; 

51 00E8 DECL~—s—R1 : ; 

51 07 8A QOEA BICB2 «#7, RI : ; 

34 0000000060041 9€ OED MOVAB STR$$Q_SHORT_QCR1], REMQUE_ADDR : ; 

3 00 B4 OF 0 F5 20$:  REMQUE @0(REMOUE_ADBR), TEMP : ; 

5 1D 000F9 BVS 21$ : ; 

52 01 00 000FB MOVL #1, ALLOC_DONE : ; 

: 11 OOF BRB 22$ : ; 

ps 0100 21$: CLRL §ALLOC_DONE : ; 

7E 58 3C 0108 MOVZWL SRC_LEN, -(SP) : : 

000000006 00 04 FB 0010 CALLS #1, ~STR$$ALOC_SHORT : 3 

05 : E 910¢ 22$: BLBS  ALLOC_DONE : ; 

2c 50 € 91 F BLBC RETURR_STATUS, 268 : ; 

1 11 00112 BRB 20$ : : 

27 9 E9 00114 23$: BLBC —_ RETURN_STATUS, 26$ : ; 

18 AE DO 00117 MOVL TEMP, TEMP_DESC+4 : ; 

1D 11 00118 BRB 25$ : ; 

18 Ar 9F 0011D 24$: § PUSHAB TEMP _DESC+4 F F 

Oc AE 5 3¢ 0120 MOVZWL SRC_CEN, 12(SP) : ; 

Oc AE OF 91 4 PUSHAB 1 : ; 

000000006 00 9 FB 127 CALLS #2, LIBSGET_VM : ; 

09 E8 0012E BLBS § RETURN STATOS, 25$ : ; 

50 000000006 BF 0 90131 MOVL #STRS_INSVIRMEM, RETURN_STATUS ; : 

14 AE B0 91 A 358: MOVW SRC_LEN, TEMP_DESC : ; 

5 D9 13— 26$:  MOVL RETORN STATUS; LOC_RET_STAT : : 

03 0141 BLBS LOC _RET_STAT, 27$ : 1600 ; 

0085 31 O144 BRW $ : ; 

18 BE 04 BE 5 147 27$: | MOVC3 SRC_LEN, @SRC_ADDR, @TEMP_DESC+4 > 1604 : 

OC AE 66 68 9140 MOVW (DEST DESC), SSTRSTEMP DESC > 1605 ; 

10 AE 04 A6 DO 00151 MOVL  4(DEST_DESCS, SSTRSTEMP BESC+4 ; : 

16 Ar 2 A é 156 MOVW  § 2(DEST“DESC), TEMP_DESCT : ; 

; 14 =A 158 MOVAB TEMP_DESC, Rb : : 

1 3 DO 0015F MOVL DEST DESC, R : ; 

000000006 16 001 JSB giRS$MovG RI : : 

14 AE AE B80 001 MOVW STRSTEMP “DESC. TEMP_DESC : : 

18 «OA AE DO 001 MOVL $STRSTEMPDESC+4, TEMP DESC +4 : : 

3 000000006 8F DO 001 MOVL §§ #STRS_NORMAL, RETURN_STATUS : 1608 ; 

18 AE DO 0017 MOVL TERP_DESC+4, R2 ; : 

3E 13 00170 BEQL 29S : ; 

OOFO 8F 14 AE 8 17F CMPW TEMP_DESC, #240 : ; 

1A 1A 185 BGTRU 28$ : : 

51 52 D0 001 MOVL R2, STRING_BLOCK : : 


N 6 
TRSCOPY 16-Sep-1984 01:35:39 AX-11 Bliss-32 V4.0-7 
atts fe tie hs rik Sa Pe Ait 4 PT Pee 
51 FE OAT 3¢ A MOVZUL * eres cca ALLOC_LENGTH 
51 3} A 001 BICB2 #7, R1 
1 0000000060041 9E£ 0019 MOVAB STRSSQ SHORT QCR1J], INSQUE_ADDR 
00 81 be F 198 INSQUE (Re), 30 (INSQUE_ ADDR) 
18 AE 9F OO1A1 288 PUSHAB TEMP_DESC+4 
Oc AE 18 AE 3C O01A4 MOVZWL TEMP"DESC, 12(SP) 
OC AE 9F 00149 PUSHAB 12(SP) 
000000006 05 F TAG CALLS #2, LIBSFREE_VM 
E8 0018 BLBS § RETURN STATU $ 
Q 000000006 ef DO 00186 MOVL  &#STR$ FATINTERR, RETURN STATUS 
4 39 P 169 298: ROVE RETURA STATUS. LOC RET STAT 
6E 000000006 BF bg C3 MOVL aSTRS_FR A INTERR. RETURN_STATUS 
6E 000000006 ef D0 o198 30$ BOVL aSTRS_ INSVIRMEM, RETURN_STATUS 
61 04 BE 58 28 00105 31$ MOVC3 SRC_LEN, @SRC_ADDR, (R1) 
66 38 B OO1DA mov ghee LEN, (DEST_DESC) 
OC Ab 20 04 BE 58 2C OO1DF 32$:  MOVCS SRC_LEN, @SRC_ADDR, #32, 12(DEST_DESC), 
04 86 OO1EG a4 (BEST. DESC) 
35 $3 OOlEA pxeh | Sos 
6E 0} 06 ableF MOVL a RETURN_STATUS 
50 04 Ag 9E OO1F1 33$: MOVAB 4 (DEST grese 
at 58 B61 OO1FS CMPW sac Len, pe eesT ROESC) 
57 8) D0 OOIFA Bove, tRO), RP 
02 A? 04 BE 5m 28 OO1FD MOVC3  SRC_LEN, @SRC_ADDR, 2(R7) 
67 58 60 0020 MOVW  SRCTLEN. ( 
6E 04 D6 0 06 34$ MOVL He RETURN_STATUS 
57 60 DO 00208 35$:  MOVL (RO), R7 
02 A? 04 8g 66 28 0020E MOVC3 (DEST_DESC), @SRC_ADDR, 2(R7) 
6 66 BO 00214 MOVW  (DEST“DESC). (R7)~ 
6E 000000006 8F 00 6 17 368: MOVL &#STRS“TRU, RETURN STATUS 
19 6E E 1€ 37$: BLBS | RETURN_STATUS, 
04 6E 0 06 FD 0 1 CHPZV 0, #3; RETURN_STATUS, #4 
cetbini eF 05 00ce8 URAL Turw, srarus 
98 br fi 60 1 38$:  MOVL ns fut STATUS, RO 
5E 18 ¢0 00 ADDL2 
05 00237 SB 
3; Routine Size: 568 bytes, Routine Base: _STRSCODE + 0068 


ad ad adaadad dad 
AOA 
WNMMNNO-— 
-—-onNNOONMW 


STRSCOPY Bf 1984 01:35:39 AX=11 Bliss-32 V4.0-742 Page 20 

Bit: 1278687138 9 : 8 be LIBRTL.SRCISTRCOPY .B325 1 “ 185 

> 514 1698 1 END ‘End of module ; 
: 315 1899 1 ‘ 
; 516 1700 0 ELUDOM ’ 
H PSECT SUMMARY ; 
; Name Bytes Attributes : 
; _STRSCODE 672 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) : 
; Library Statistics ; 
SPO e i a OO hy eee Symbols -co----- Pages Processing : 
; File Total Loaded Percent Mapped Time ‘ 
: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 17 0 581 00:00.8 : 
: COMMAND QUALIFIERS ; 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:STRCOPY/OBJ=0BJ$:STRCOPY MSRC$:STRCOPY/UPDATE=(ENH$:STRCOPY) : 
3 Size: 672 sode 5 0 data bytes : 
; Run Time g3?} : 
3 Elapsed. Time: 0:4 q : 
3; Lines/CPU Min 40 ; 
H Lexenes/CPU-Rin: 33895 : 
3 ponocy We : 202 pages : 
; Compi ation Complete : 
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